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INTRODUCTION 

The increased use of computers in all types of data pro- 
cessing has created as well as solved user problems. The 
decreased cost of owning and operating small computer 
systems has created a large demand because many small 
businesses, professionals and others now see the computer as 
a way of cutting costs or the time involved in solving or 
handling the problems they have. 

One of the problems created by the expanded use of com- 
puters is display of data. Many systems have software that 
generate mountains of output that baffles even the author of 
the programs. Some systems have expensive options which 
generate relatively simple bar graphs, but most rely on a 
printer which is not well suited to displaying information in 
graphic form. And yet, it is well known that most people can 
grasp information better, more quickly, and with improved 
retention if the information is displayed pictorially. 

Large computer systems often have impressive graphics 
capabilities because the cost of the graphics peripherals are a 
small percentage of the total system cost. If a system, which 
would provide some of the graphics abilities of the larger 
systems, could be designed for use on the popular 
microprocessor-based small business system and still be 
available for a small portion of the system cost, the accep- 
tability of microprocessor-based systems would increase. 

To do this an inexpensive video graphics generator, a low- 
cost display system, and some sort of intelligent controller 
are needed. The Motorola MC6847 Video Display Generator 
(VDG) is a cost-effective means of putting graphic informa- 
tion on a video screen. When used in conjunction with the 
MCI 372 Color TV Video Modulator, the VDG can be used 
with standard television receivers to display graphics in a 
variety of modes. 

To be effective as a display system, some intelligence is 
needed to format and maintain the data for the VDG to 
display. The MC6809 microprocessor is capable of providing 
the variety of logical bit manipulations and addressing modes 
which are necessary for high-density graphics display pro- 
grams. The MC6809 can format and display raw data passed 



to it by a Basic report generating program fast enough to per- 
mit semi-real time animation, if desired. 

HARDWARE COMPONENTS 

As shown in Figure 1 , the hardware components consist of 
the MC6809 with its stack and user RAM, an MCM2716 
EPROM which contains the display routines, 6K of display 
RAM, the MC6847 video display generator, and the MC1372 
color television video modulator. 

A complete schematic of the system is given in Figure 2. 

This system could be used as a peripheral processor to a 
microcomputer running the main system software or the 
MC6809 could be the main processor and use the VDG as its 
display. In this version, the system runs Basic and the USR 
function is used to call the video display subroutines. 

MC6847 VIDEO DISPLAY GENERATOR (VDG) 

The display modes o f the VDG are controlled by mode 
control pins A/G, A/S, INT/EXT, GMO, GM1, GM2, CSS, 
and INV. The high resolution graphics six mode is used in 
this system and the VDG is programmed with resistors tied to 
the proper voltage levels. Table 1 shows the pin configura- 
tion. 



Table 1. Mode Control Pin Programming for 
High Resolution Graphics Six Mode 



Pin Name 


A/G 


A/S 


INT/ EXT 


GM2 


GM1 


GMO 


CSS 


INV 


Logic Level 


1 


X 


X 


1 


1 


1 





X 



X denotes don't care 



In the high resolution graphics six mode, the active screen 
is divided into 6144 bytes: 32 bytes (256 bits) horizontal by 
192 bits vertical. Therefore, 12 MCM2114, IK x 4-bit static 
RAMs are used as the display memory. The 8T28 and 8T97 
three-state buffers are used to isolate the MPU from the 
VDG during normal VDG operations. The address lines of 
the VDG sequentially read the display RAM and display the 
information found there. 
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When the MPU wishes to access the display RAM, the 
buffers are turned on and the VDG address lines are put in a 
high-impedance state by the bus control logic bringing the 
memory select (MS) input low. This is done to prevent bus 
contention between the MPU and VDG. 

SYSTEM SOFTWARE 

To assist in understanding how the software operates on 
the display, refer to Figure 3 to see how the display area is 
mapped into the display RAM. This illustration shows how 
the display screen is interpreted by the VDG. 

Each of the 32 bytes on a line has eight bits, with each bit 
corresponding to a pixel, for a total of 256 separate pixels. 
Each pixel can be buff or black. If a bit is set, the correspon- 
ding pixel is buff and if it is reset the pixel is black. 
Therefore, when the memory is written all ones ($FF in each 
byte), the screen is buff. To put a black dot on the screen, the 
appropriate bit in the appropriate byte must be written with 
zero. The main task of the software is to determine which 
byte and which bit(s) in that byte must be set or reset. 

To simplify interfacing between the main or driving pro- 
gram (for example, a financial report generator) and the 
graphics routines, the display screen is considered as an X-Y 
plane with the origin (X = 0, Y = 0) in the center of the screen 
as shown in Figure 4. Points can be plotted on the screen by 
giving the X-Y Cartesian coordinates in twos complement 
hexadecimal form to the line generation routine (LINGEN). 
The limits, as shown, are (in decimal) -128<X<127 and 
-96<Y<95. 

The main graphics-generating routines are line generation 
(LINGEN) and point address (PNTADD). Two X-Y points 
are passed to LINGEN and it calculates which pixels best ap- 
proximate a staight line drawn between them and sets those 
bits in the display memory to "draw" the line. LINGEN then 
calls PNTADD which, given an X-Y coordinate, calculates 
the address of the byte in which the pixel should be and 
returns the address and a mask of one byte in which one bit is 
set. This is the location of the pixel in the addressed byte. 

LINE GENERATION ROUTINE (LINGEN) — 

LINGEN is the main line-drawing routine. It uses a modified 
Bresenham's algorithm to calculate the pixels which approx- 
imate the line. In this method, an error term which shows the 
deviation of the plotted pixel from the true line is calculated. 
The X direction is always incremented and, if the error term 
is positive, the Y direction is also incremented and the point 
is plotted. The error term is then updated by adding the in- 
cremental slope of the line. 

For the following discussion, reference the LINGEN 
flowchart in Figure 5. Upon entry, LINGEN transfers the 
points to variable locations and then calls PNTADD to get 
the ending address (ENDADD) and a mask with the final 
pixel (EM ASK). PNTADD is called a second time to get the 
beginning address in index register X and the first pixel in ac- 
cumulator A (MASK). 

Next, the delta terms representing the change in X 
(DELTAX) and the change in Y (DELTA Y) are calculated. 
The error term (E) is set to zero and the X increment (XINC) 
and Y increment (YINC) terms are set to one. Notice that the 
unity increment for the Y direction is - 32 (decimal). This is 
because the screen format is such that locations addressed 32 
apart are directly above or below one another. 

Now the delta terms are checked to see if they are negative. 
If so, they are negated to get the absolute values. The incre- 
ment terms are also negated. If DELTAX is negative, the er- 
ror term is set to - 1 . DELTAX is then subtracted from the 
error. The first point is "plotted" by inverting MASK and 
ANDing with the pixels already on screen. 



The sign bit of error term E is now checked. If it is 
negative, the true line will pass above on the next iteration so 
the Y direction is changed by YINC (which could be 
negative) and E is updated by adding DELTAX. If it is 
positive, the line will pass to the right so the X direction is in- 
cremented or decremented and E is updated by subtracting 
DELTAY from E. The address of the current pixel is com- 
pared to ENDADD and if they are equal then the current 
mask in the A register is compared to the EMASK. If they 
are equal, the line is finished, otherwise a branch is made to 
plot more points. 

Once the end and beginning addresses are found 
PNTADD is not called again. This is done to save the time it 
would take to calculate the address of each pixel. Instead, the 
address is kept in the X register and continually updated. 
When the X direction is to be incremented or decremented, a 
rotate of the MASK is done and the shifting of the pixel into 
the carry bit indicates the crossing of a byte boundary- The 
address is then incremented and decremented accordingly. 

POINT ADDRESS ROUTINE (PNTADD) — PNTADD 
finds the address of a specified X-Y coordinate by the for- 
mula: 

(X + XOFF) _ (y + yofF) x 32 + SCRNOFF + SCRNSTART 

o 

where: 

XOFF and YOFF = the offsets necessary to place the origin 

at the center of the display screen. 
SCRNOFF = the length of the screen minus 32. This is the 

address of the first byte in the last line. 
The original X coordinate is then used to find the pixel loca- 
tion within the byte. The last three bits of the coordinate are 
used as an index into a lookup table (BITAB) which consists 
of 8 bytes in which there is one set bit in descending order. 
This is returned in the A register as the mask. 

LINE LISTS 

In order to further ease user interface to the system, a data 
structure which allows the simplest manipulation of the raw 
data is needed. For this system, the X-Y plotter is used as a 
model. In machines of this type, the pen is controlled by 
separate X-Y axis arms and is raised or lowered to draw lines. 
This system emulates this behavior by providing routines for 
handling line lists. 

The line list consists of a head (the pointer to which is kept 
in a table) and elements. An element consists of two bytes 
which are either Cartesian coordinates (X,Y) or special 
codes. Since the Y coordinate can legally take on values only 
between - 96 and 4- 95 (SAO and $5F) the remaining values 
can serve as function codes. 

The list is drawn by the subroutine DRWLIS in the follow- 
ing manner. A point is checked for a legal Y value and, if 
legal, a line is drawn from the previous point in the list to the 
current one. If the Y value is $6F, the imaginary pen is 
moved to the next point and processing continues. In this 
way non-continuous objects can be drawn. If the Y value is 
$70, the next two bytes in the list are taken as the address of 
the continuation ofthe list (indirection). Finally, if the Y 
value is $71 , the list is considered ended and control is return- 
ed to the caller. A flowchart of DRWLIS is given in Figure 6. 

CURSOR CONTROL MODE 

In order to allow the user to easily generate the desired for- 
mat for his particular system, a cursor-oriented input system 
is provided. This set of programs takes care of the "book- 
keeping" of the line: lists and pointer table. A cursor is pro- 
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Figure 3. Memory Map of Display RAM 
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Figure 4. Software Map of Display Screen 
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Figure 5. Flowchart of Subroutine LINGEN 
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Figure 6. Flowchart of Subroutine DRWLIS 



vided to give visual feedback to the user and several com- 
mands allow the entry, modification, and manipulation of 
the line lists. 

Entry into the main program at GRAPH causes the in- 
itialization of the necessary pointers and flags and prints a 
prompt asking for an address in memory in which the lists 
can be stored. The command handler is then entered, the 
screen is cleared, and the cursor is written to the screen. The 
system is then ready to execute commands. 

The cursor consists of a line width that is one bit wide 
horizontally and four vertical lines high. The cursor position 
is defined as the point at which the top of this character is 
located. 

It can be manipulated by using standard ASCII control 
characters. Back space ($08) moves the cursor to the left one 
position (one bit width), Control-L ($0C) moves the cursor 
right one position, Control-K (Vertical Tab SOB) moves the 
cursor up one position (one line width), and Control-J (Line 
Feed $0A) moves the cursor down one line. 

Line lists are compiled by the use of the Point and Line 
functions. Entering a P on the console terminal causes the 
current location of the cursor, along with the move pen con- 
trol code, to be entered into the currently active line list. 



Thus, when the list is drawn the "pen" is moved to this loca- 
tion before proceding with the next point. The first point in a 
list should always be this code followed by the starting coor- 
dinate of the first line. 

Typing an L on the console terminal causes a line to be 
drawn on the screen from the point entered to the current 
cursor location and the coordinates of the cursor to be 
entered as a point in the line list. Appropriate messages are 
printed on the console confirming these actions. 

Typing an N on the console terminal causes an end code to 
be entered in the current list and a new list to be started. The 
screen can be erased by entering an E command and lists can 
be drawn using the DR command. A complete list of the user 
commands and their syntax is given in Table 2. 

RUBBER-BAND MODE 

The cursor control mode is not the only mode of operation 
of the system. Sometimes it can be helpful to have a con- 
tinuous line drawn to the cursor at every instant. This is 
known as a rubber-band line and is a very common method 
of interactive graphics input. This mode is accomplished by 
drawing and erasing a line from the last point entered to the 
current cursor location on a move-by-move basis. The P (fix 
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Table 2. User Commands 



Command Input 


Description 






B 


Cursor Control - Bottom - Move the cursor to the bottom of the display immediately. 


D < space > 


Delete the last line entered from the line list. 






DEL 


Dele :e a List — "DELETE LIST" will be displayed and a list number must be entered. If the number given 
is valid, that list is deleted and "LIST - DELETED" is displayed. If the number given was invalid, "DOES 
NOT EXIST" will be displayed and "NO LIST DELETED" will also be displayed if nothing was done. If 
there is only one list, it cannot be deleted. The letter N must be entered to start a new list before an old 




list can be deleted. 






DR < space > 


Draw the currently active list. 






DR < list number>, 


Draw the list specified. If the list does not exist, " < list number> DOES NOT EXIST" will be displayed. 


< list number> <cr> 








DW 


Draw a Line - The message "ENTER TWO POINTS XI, Y1" will be displayed. The user must enter valid 
X-Y coordinates for the starting point. Then, "X2, Y2" will be displayed and valid X-Y coordinates must 




be entered for the finishing point. A line will be drawn between these points. If the sam 


e coordinates are 




enteied for both points, a dot is plotted at that point. 






E 


Erase Display - Clears the display and writes the cursor. 






H 


Cursor Control - Home the Cursor - The cursor is moved to the center of the display immediately. 


L 


Line - Enters the current location of the cursor into the currently active line list and draws a line between 




it and the previous point. A message giving the coordinates of the point e 


-itered is disp 


ayed. In Rubber- 




Band Mode, the line is fixed and the cursor moves from there. 






P 


Fix Point — The current location of the cursor and the move pen code are entered into the current active 




line list. A message giving the coordinates of the point entered are displayed. 






In rubber-band mode this point becomes the anchor point for the rubber-band line. 




RES 


Reset — Reset the pointers and send prompt out. 






S 


Status — Display status of the system. Data displayed will include: 
Current start address of lists 








Address of next free space in list pointer table 
Address of next free location in the line list 














Current number of line lists 






T 


Cursor Control — Top - Move the cursor to the top of the display immediately. 




< 


Cursor Control — Move the cursor to the left side of the display immediately. 




> 


Cursor Control — Move the cursor to the right side of the display immediately. 




ESC 


Escaoe — Do a monitor restart. 






Control R 


Enter or exit the rubber-band mode. 







point) command causes the line to be entered and the end of 
the line to become the new "anchor" of the rubber-band 
line. Of course, cursor movement is slower due to the extra 
processing of the line generation routine, but this is made up 
by the utility of the mode. To enter the rubber-band mode, 
type Control-R on the console terminal. To exit the rubber- 
band mode and return to the cursor control mode, simply 
enter Control-R again. 

SYSTEM USE 

The routines have been programmed into an MCM2716 
EPROM and are used with the ASSIST09 monitor (see 
MC6809-MC6809E Microprocessor Programming Manual 
for a listing of ASSIST09). The only system dependent 
routines are the I/O routines and an expression handler. 
These are accessed using a software interrupt (SWI) instruc- 



tion followed by a function code, for example: 02 is the code 
for an output character routine. These routines are simple to 
write but are hardware dependent and must be provided by 
the user for his system configuration. 

In general, these routines are called as subroutines by a 
larger program which usually does the data processing and 
then passes the data to a formatter. This would be a routine 
to scale the data and put it in the line list format to be 
displayed by DRWLIS. In this way the routines are system- 
independent and form a powerful way to display data that 
formerly was difficult to do on low-end microcomputer- 
based systems. 

PROGRAM LISTING 

Figure 7 is a complete listing of the program contained in 
the MCM2716 EPROM. 
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PAGE 001 GRAFPAKA . S A : 1 


GRAFPA 








00001 










NAM 


GRAFPAK 




00002 










OPT 


ABS ,LLE 


= 81 


00003 








* GRAFPAK 


TO BE LOCATED AT ADDRESS "ROM2" 


00004 








* GLOBALS 


LOCATED AT 


ROM2-RAMOFS 


00005 








* TO ACCOMODATE THE 


HARDWARE CONFIGURATION 


00006 








* OF THE ( 


5809 EVALUATION BOARD. 


00007 








* 








00008 




F800 


A 


ROM1 


EQU 


$F800 


ADDRESS OF MONITOR 


00009 




F000 


A 


ROM2 


EQU 


ROMl-$8 


00 ADDRESS OF SECOND ROM 


00010 




1300 


A 


RAMOFS 


EQU 


$1300 


ON BOARD RAM IS HERE 


00011 




9000 


A 


SCRN 


EQU 


$9000 


VDG SCREEN RAM (6K) 


00012 




B441 


A 


MODCON 


EQU 


$B441 


ADDRESS OF VDG CONTROL PORT 


00013 




1800 


A 


RAMLEN 


EQU 


$1800 


LENGTH OF VDG RAM 


00014 




0080 


A 


XOFF 


EQU 


128 


X OFFSET 


00015 




0060 


A 


YOFF 


EQU 


96 


Y OFFSET 


00016 




FCDF 


A 


GET 


EQU 


ROMl+$4DF ADDR OF EXPRES HANDLER 


00017 




DFF4 


A 


ECHO 


EQU 


ROM1-$180C ECHO FLAG FOR ASSIS09 


00018 




00FF 


A 


CLERCH 


EQU 


$FF 


TO FILL SCREEN 


00019 








* 








00020A 


DD00 








ORG 


ROM2-RAMOFS 


00021 








* 








00022 








* GLOBAL VARIABLES FOLLOW 


00023 








* 








00024A 


DD0 


0001 


A 


FLAG 


RMB 


1 


0=WRITE $FF=UNWRITE 


00025A 


DD01 


0002 


A 


TEMP 


RMB 


2 


FOR ARITH RESULTS 


00026A 


DD0 3 


0001 


A 


XI 


RMB 


1 


X LOC OF 1ST POINT 


00027A 


DD04 


0001 


A 


Yl 


RMB 


1 


Y LOC OF 1ST POINT 


00028A 


DD05 


0001 


A 


X2 


RMB 


1 


X LOC OF 2ND POINT 


00029A 


DD06 


0001 


A 


Y2 


RMB 


1 


Y LOC OF 2ND POINT 


00030A 


DD07 


0001 


A 


XINC 


RMB 


1 


FOR LINGEN 


00031A 


DD08 


0001 


A 


YINC 


RMB 


1 




00032A 


DD09 


0001 


A 


MASK 


RMB 


1 


DOT MASK OF LINE 


00033A 


DD0A 


0001 


A 


EMASK 


RMB 


1 


MASK AT END LINE 


00034A 


DD0B 


0002 


A 


DELTAX 


RMB 


2 


CHANGE IN X OF LINE 


00035A 


DD0D 


0002 


A 


DELTAY 


RMB 


2 


CHANGE IN Y OF LINE 


00036A 


DD0F 


0002 


A 


E 


RMB 


2 


ERROR IN LINE 


00037A 


DD11 


0002 


A 


ENDADD 


RMB 


2 


LAST ADDRESS IN LINE 


00038A 


DD13 


0002 


A 


STACK 


RMB 


2 


SAVE USER STACK HERE 


00039A 


DD15 


0001 


A 


MODE 


RMB 


1 


CURSOR OR RUBBER-BAND MODE 


00040A 


DD16 


0002 


A 


NEXTAD 


RMB 


2 


NEXT FREE SPACE IN LIST TABLE 


00041A 


DD18 


0002 


A 


LISTP 


RMB 


2 


START OF LIST TABLE 


00042A 


DD1A 


0001 


A 


LISCNT 


RMB 


1 


NUMBER OF LISTS 


00043A 


DD1B 


0002 


A 


CURSAV 


RMB 


2 


SAVE UNDER CURSOR 


00044A 


DD1D 


0002 


A 


CURPOS 


RMB 


2 


X-Y POS OF CUSRSOR 


00045A 


DD1F 


0002 


A 


NEXTPT 


RMB 


2 


NEXT FREE ADDR IN LIST 


00046A 


DD21 


0002 


A 


CURAD 


RMB 


2 


ADDRESS OF CURSOR 


00047A 


DD23 


0001 


A 


CURCH 


RMB 


1 


CURSOR MASK 


00048A 


DD24 


0001 


A 


DELIM 


RMB 


1 


DELIMITER FROM GETEXP 


00049A 


DD25 


0010 


A 


BUFFER 


RMB 


16 


GETLIS SAVES LIST NUM 


00050A 


DD35 


0005 


A SAVC 


RMB 


5 


SAVE CURSOR HERE 


00051 








* 








00052A 


F000 








ORG 


ROM 2 




00 53 








* 








00054 








* THE 


FOLLOWING ARE 


FUNCTION CODES FOR USE WITH 


00055 
00056 








* THE 
* 


ASSIST09 MONITOR SWI FUNCTIONS. 


00057 




0000 


A 


INCHC 


EQU 





INPUT CHAR NO PARITY 


00058 




0001 


A 


OUTCHC 


EOU 


1 


OUTPUT CHAR TO CONSOLE 



Figure 7. Interactive Graphics System Program Listing (Sheet 1 of 20) 
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PAGE 002 GRAFPAKA.SA 


— 

:1 GRAFPA 


00059 






0002 


A 


PDATAC EQU 2 PRINT STRING EOT AS TERMINATOR 


00060 






0003 


A 


PDAT1C EQU 3 AS ABOVE WITH CR LF 


00061 






0006 


A 


PCRLFC EQU 6 PRINT CR LF STRING 


00062 






0007 


A 


SPACEC EQU 7 PRINT SPACE TO CONSOLE 


00063 






0008 


A 


MONITC EQU 8 RESTART THE MONITOR 


00064 










* 




00065 










* 


FOLOWING ARE THE MONITOR DEPENDENT ROUTINES 


00066 










* 




00067 










* 


OUTS-PRINT ONE SPACE TO CONSOLE AND RETURN 


00068 










* 


VOLATILE: A 


00069 










* 




00070A 


F000 


3F 






OUTS SWI SWI FUNCTION 


00071A 


F001 




07 


A 




FCB SPACEC FUNCTION CODE 


00072A 


F002 


39 








RTS 


00073 










* 




00074 










* 


CRLF-SET A CARRIAGE RETURN-LINE FEED STRING TO 


00075 










* 


CONSOLE 


00076 










* 


VOLATILE: X,A 


00077 










* 




00078A 


F003 


3F 






CRLF SWI MONITOR FUNCTION 


00079A 


F004 




06 


A 




FCB PCRLFC CODE 


00080A 


F005 


39 








RTS 


00081 










* 




00082 










* 


OUTHL-PRINT THE LEFT NIBBLE IN A REGISTER TO 


00083 










* 


CONSOLE 


00084 










* 


VOLATILE: A 


00085 










* 




00086A 


F006 


44 






OUTHL LSRA SHIFT LEFT NIBBLE 


00087A 


F007 


44 








LSRA INTO RIHT NIBBLE AND 


00088A 


F008 


44 








LSRA THEN FALL INTO OUTHR 


00089A 


F009 


44 








LSRA 


00090 










* 




00091 










* 


OUTHR-PRINT THE RIGHT NIBBLE OF A REGISTER TO 


00092 










* 


CONSOLE. 


00093 










* 


VOLATILE: A 


00094 










* 




00095A 


F00A 


84 


0F 


A 


OUTHR ANDA #$F MASK TOP NIBBLE 


00096A 


F00C 


8B 


30 


A 




ADDA #$30 CONVERT TO ASCII 


00097A 


F00E 


8 1 


39 


A 




CMPA #$39 


00098A 


F010 


23 


02 


F014 




BLS OUTC 


00099A 


F012 


8B 


07 


A 




ADDA #7 


00100A 


F014 


BD 


F048 


A 


OUTC JSR OUTCH PRINT HEX DIGIT 


00101A 


F017 


39 








RTS 


00102 










* 




00103 










* 


OUTHEX-PRINT A REGISTER AS TWO HEX DIGITS 


00104 










* 




00105A 


F018 


34 


02 


A 


OUTHEX PSHS A SAVE REGISTER 


00106A 


F01A 


BD 


F006 


A 




JSR OUTHL PRINT LEFT NIBBLE 


00107A 


F01D 


35 


02 


A 




PULS A GET CHAR BACK 


00108A 


F01F 


BD 


F00A 


A 




JSR OUTHR PRINT RIGHT NIBBLE 


00109A 


F022 


39 








RTS 


00110 










* 




00111 










* 


OUT4HS-OUTPUT X REGISTER AS FOUR HEX DIGITS 


00112 










* 


AND A SPACE. 


00113 










* 




00114A 


F023 


34 


10 


A 


OUT4HS PSHS X SAVE CHAR 


00115A 


F025 


35 


02 


A 




PULS A GET LS BYTE 


00116A 


F027 


BD 


F018 


A 






JSR OUTHEX PR T NT TT 
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00117A 

00118A 

00119A 

00120A 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129A 

00130A 

00131A 

00132A 

00133A 

00134A 

00135A 

00136A 

00137 

00138 

00139 

00140 

00141 

00142A 

00143A 

00144A 

00145 

00146 

00147 

00148 

00149 

00150A 

00151A 

00152A 

00153 

00154 

00155 

00156 

00157 

00158 

00159A 

00160A 

00161A 

00162 

00163 

00164 

00165A 

00166A 

00167A 

00168 

00169 

00170 

00171 

00172A 

00173A 

00174 



F02A 35 
F0 2C BD 
F02F BD 
F032 39 



F033 34 
F035 86 
F037 IF 
F039 BD 
F03C 34 
F03E B7 
F041 DC 
F043 35 



F045 3F 
F046 
F047 39 



F048 3F 
F049 
F04A 39 



F04B 3F 
F04C 
F04D 39 



F04E 3F 
F04F 
F050 39 



F051 3F 
F052 



02 

F018 
F000 



A 
A 
A 



PULS 
JSR 
JSR 
RTS 



A 

OUTHEX 
OUTS 



GET MSBYTE 



* 
* 
* 
* 
* 
* 
* 
* 



GETEXP-WILL RETURN A HEX NUMBER FROM THE 
CONSOLE IN THE D REGISTER 

ON RETURN Z=l IF VALID HEX NUMBER , Z=0 IF 
NOT A VALID HEX NUMBER 

THE TERMINTING DELIMITER IS SAVED IN DELIM 
VOLATILE: D 



08 
5F 
8B 

FCDF 
01 

DD24 

9B 

89 



00 



A G 
A 
A 
A 
A 
A 
A 
A 

* 
* 
* 
* 
* 

INCH 

A 



PSHS 


DP 


SAVE DIRECT PAGE 


LDA 


#$5F 




TFR 


A, DP 


SET DP FOR MONITOR 


JSR 


GET 


EXPRESSION HANDLER 


PSHS 


CC 


SAVE COND CODE 


STA 


DELIM 




LDD 


$9B 


GET NUMBER 


PULS 


PC,DP,CC 





IN ASSIST09 



INCH-INPUT ONE CHAR FROM THE CONSOLE IN THE 
A REGISTER 
VOLATILE: A 



SWI 

FCB INCHC 
RTS 

* OUTCH-OUTPUT ONE ASCII CHARACTER IN THE A 

* REGISTER TO THE CONSOLE. 

* VOLATILE: NONE 
* 

OUTCH 



PDATA1-SEND A STRING POINTED TO BY THE X REGISTER 
AND TERMINATED BY AN ASCII EOT (04) TO THE 
CONSOLE PRECEDED BY A CRLF. 
VOLATILE: X,A 



03 

02 



SWI 

FCB 

RTS 
* 

* 

* 

* 

PDATA1 SWI 
A FCB 
RTS 

* 
* 
* 

PDATA SWI 
A FCB 
RTS 



OUTCHC 



PDAT1C 



SEND CRLF THEN PRINT STRING 
FUNCTION COIDE 



PDATA-SAME AS ABOVE WITHOUT CRLF STRING, 



PDATAC 



* 

* MONIT-DOES A SWI FUNCTION OF THE MONITOR WHICH 

* CAUSES A RESTART OF THE MONITOR 
* 

MONIT 



08 



SWI 
FCB 



MONITC 



FUNCTION CODE FOR RESTART 
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:1 GRAFPA 








00175 










* 








00176 










* GRAPH-ENTRY ROUTINE 


INTO GRAPHICS MODE. 


00177 










* POINTERS 


AND VARIABLES ARE INITIALIZED AND THE 


00178 










* USER IS 


PROMPTED TO 


SUPPLY A STARTING ADDRESS 


00179 










* FOR 


THE 


LINE LIST TC 


BE STORED AT. THIS ROUTINE 


00180 








* IS SELF-CONTATAINED 


EXCEPT FOR THE 


00181 










* MUN J 


TOR 


FUNCTIONS ALREADY MENTIONED AND 


00182 










* A Mn 
AND 


HAS 


ITS OWN COMMAND HANDLER 


00183 










AND 


COMMAND LISTS. 




00184 


















00185A 


F053 


1 IX pp 
10r F 


nn 1 o 
DDI 3 


A 


r* n a no 
GRAPH 


bib 


STACK 


SAVE STACK 


00186A 


F057 


Q P 


nfli (A (A 


A 




r nv 
LUX 


#ROM2-$20 


00 RAM FOR LIST TABLE 


00187A 


F05A 


□ i? 
or 


nn 1 Q 
UUio 


A 




b 1 X 


LISTP 


SETUP LIST TABLE POINTER 


00188A 


F05D 


np 


nn 1 £ 
UU 1 


A 




f m %/ 
b I X 


NEXTAD 


ALSO START OF TABLE 


00189A 


F060 


7 P 

/ r 


nn (A (A 
UU 10 10 


A 




CLR 


FLAG 


DEFAULT FOR LINGEN 


00190A 


F063 


7 P 

1 r 


nn 1 a 
UU1A 


A 




o T o 
CLR 


LISCNT 




00191A 


F066 


q a 
oo 


7 P 
IB 


A 




LDA 


#$7F 


START CURSOR CHAR 


00192A 


F068 


D / 


nn 7 
UU Z j 


A 




bT. A 


CURCH 




00193A 


F06B 


7 p 
1 r 


nn 1 t: 
UU 1 D 


A 




r> r o 


MODE 


DEFAULT TO CURSOR 


00194A 


F06E 


O P 


ytir 10 


A 




r n v 
LUX 


#SCRN+$BF0 CENTER OF SCREEN 


00195A 


F071 


D P 
DC 


nn 7 1 


A 




C V 

b 1 X 


CURAD 


SAVE IN CURSOR ADDR 


00196A 


F074 


Q P 
OL 


nn "3 £ 
UU Jd 


A 




r nv 

LUX 


#SAVC 


AREA 


00197A 


F077 


R P 

d r 




A 




b I X 


pi I np » t r 


Anno Tn OA\fp TTMnpD pmdchd 
AUUR 1U bAVb UNULR LUKbUK 


00198A 


F07A 


7 P 

/ r 


nn 1 n 
UU 1 u 


A 




ILK 


LU KPUb 


PlIDCnD TAl PPMTPD /~\ p CPDPPXl 


00199A 


F07D 


71? 


nn 1 p 


A 




nr n 
ILK 


LUK?Ub+ 1 




00200A 


F080 


BD 


B 1 1 


A 




TOO 
JbK 


CLEARS 


p ii n o f> Vt c Pvi 

CLEAR SCREEN 


00201A 


F083 


or. 


r 


A 


(jKAFril 


LDX 


#MSG10 


SIGN-ON MESSAGE 


00202A 


F086 


nn 
BU 


pn /I n 
r 10 4B 


A 




JSR 


PDATA1 




00203A 


F089 


o o 

BE 


pm p p 
F0EE 


A 


r* o a o o 7 


LDX 


#MSG15 


"ENTER START LIST ADDRESS- 


00204A 


F08C 


BD 


F04B 


A 




JSR 


PDATA1 




00205A 


F08F 


BD 


F033 


A 




JSR 


GETEXP 


GET LIST ADDR FROM USER 


00206A 


F092 


26 


F5 


F089 




BNE 


GRAPH2 




00207A 


F094 


IF 


02 


A 




TFR 


D,Y 


GET ADDR IN Y FOR NEXTL1 


00208A 


F096 


BD 


F5B8 


A 




JSR 


NEXTL1 


SETUP NEXTPT AND NEXTAD 


00209A 


F099 


BD 


F2DA 


A 


GRAPH3 


JSR 


PROMPT 


PUT OUT PROMPT 


00210A 


F09C 


10FE 


DDI 3 


A 


GRAPH4 


LDS 


STACK 


RESTORE STACK ON ABORT 


00211A 


F0A0 


86 


FF 


A 




r n a 

LDA 


#$FF 




00212A 


F0A2 


□ 7 
B / 


np p A 

Ur r 4 


A 




STA 


ECHO 


INHIBIT ECHO 


00213A 


F0A5 


BD 


p/i yl c 

F0 4 5 


A 




JSR 


INCH 


GET COMMAND 


00214A 


F0A8 


O 1 




A 




CMPA 


#$10 




00215A 


F0AA 


25 


IB 


F0C7 




BLO 


GRAPH6 


CONTROL CHAR 


00216A 


F0AC 


BD 


F048 


A 




JSR 


OUTCH 


ECHO CHAR IF NOT CONTRL 


00217A 


F0AF 


7F 


DFF4 


A 




CLR 


ECHO 


ECHO NEXT COMMANDS 


00218A 


F0B2 


8E 


F108 


A 




LDX 


#COMLIS 


GET BASE ADDR OF COMMAND LIST 


00219A 


F0B5 


Al 


84 


A 


GRAPH5 


CMPA 


0,X 


CHECK FOR MATCH 


00220A 


F0B7 


27 


09 


F0C2 




BEQ 


FOUND 


GOT IT 


00221A 


F0B9 


30 


03 


A 




LEAX 


3,X 


BUMP POINTER 


00222A 


F0BB 


8C 


F132 


A 




CMPX 


#COMEND 




00223A 


F0BE 


26 


F5 


F0B5 




BNE 


GRAPH5 


BACK FOR MORE 


00224A 


F0C0 


20 


D7 


F099 




BRA 


GRAPH3 


NOT VALID COMMAND 


00225A 


F0C2 


AD 


98 0: 


A 


FOUND 


JSR 


[1,X] 




00226A 


F0C5 


20 


D2 


F099 




BRA 


GRAPH3 


BACK FOR NEXT COMMAND 


00227A 


F0C7 


17 


02B2 


F37C 


GRAPH6 


LBSR 


MOVEC 


CHECK FOR CURSOR CONTRL 


00228A 


F0CA 


20 


D0 


F09C 




BRA 


GRAPH4 


BACK FOR NEXT COMMAND 


00229 










* 








00230 










* 








00231 










* 








00232 










* 
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PAGE 005 C 


RAF I 


'AKA * Sj? 


i ! 1 C 


RAFPA 












00233A 


F0CC 




36 


A 


MSG 1 


FCC 


76809-6847 GRAPHICS LINE PROCESSOR/ 


00234A 


F0ED 




04 


A 




FCB 


4 








00235 










* 












00236A 


F0EE 




45 


A 


MSG 15 


FCC 


/ENTER 


START LIST ADDRESS / 


00237A 


F107 




04 


A 




FCB 


4 








00238 










* 












00239 










* 












00240A 


F108 




50 


A 


COMLIS 


FCC 


/P/ 








00241A 


F109 




F2F9 


A 




FDB 


FIXP 




FIX POINT AND RETURN 


00242A 


F10B 




4C 


A 




FCC 


/L/ 








00243A 


F10C 




F317 


A 




FDB 


LINER 




FIX LINE RETURN 


00244A 


F10E 




44 


A 




FCC 


/D/ 








00245A 


F10F 




F23D 


A 




FDB 


DHAND 




HANDLE I 


COMMNANDS 


00246A 


Fill 




4E 


A 




FCC 


/N/ 








00247A 


Fl 12 




F59F 


A 




FDB 


NEXTL 




START NEW LIST 


00248A 


F114 




45 


A 




FCC 


/E/ 








00249A 


F115 




F140 


A 




FDB 


CLEARS 








00250A 


F117 




53 


A 




FCC 


/s/ 




STATUS REPORT 


00251A 


F118 




F147 


A 




FDB 


STATUS 








00252A 


F11A 




IB 


A 




FCB 


$1B 




'ESC 




00253A 


F11B 




F1D8 


A 




FDB 


EXIT 




EXIT TO 


CALLING ROUTINE 


00254A 


F11D 




12 


A 




FCB 


$12 




CNTRL-R 


RUBBER-BAND MODE 


00255A 


F11E 




F139 


A 




FDB 


RBAND 








00256A 


F120 




3E 


A 




FCC 


/>/ 








00257A 


F121 




F1DB 


A 




FDB 


RIGHT 




MOVE CURSOR QUICK RIGHT 


00258A 


F123 




3C 


A 




FCC 


/</ 








00259A 


F124 




F1E8 


A 




FDB 


LEFT 




MOVE CURSOR QUICK LEFT 


00260A 


F126 




54 


A 




FCC 


/T/ 








00261A 


F127 




F1F5 


A 




FDB 


UP 




MOVE CURSOR QUICK UP 


00262A 


F129 




42 


A 




FCC 


/!/ 








00263A 


F12A 




F202 


A 




FDB 


DWN 




MOVE CURSOR QUICK DOWN 


00264A 

XJ XJ £-t \J ^ * A 


F12C 




48 


A 




FCC 


/H/ 








0I026SA 

f u £ U Jrv 


F12D 




F20F 


A 




FDB 


HOME 




HOME CURSOR 


00266A 

JJ XJ t~ \J \J * i 


F12F 




52 


A 




FCC 


/R/ 




RESET AMD RESTART 


00267A 


F130 




F2E3 


A 




FDB 


RESET 








00268 






F132 


A 


COMEND 


EQU 


* 








00269 










* 












00270 










* 












00271A 


F132 81 


18 


A 


ABORT 


CMPA 


#$18 




CAN? 




00272A 


F134 


26 


02 


F138 




BNE 


ABORT2 








00273A 


F136 


35 


10 


A 




PULS 


X 




CLEAN RETURN ADDR 


00274A 


F138 


39 






ABORT2 


RTS 










00275 










* 












00276 










* RBAND-WILL 


TOGGLE 


THE MODE BYTE TO CHANGE FROM 


0277 










* RUBBER BAND MODE 


TO 


CURSOR OR VICE-VERSA. 


00278 










* 












00279A 


F139 


73 


DD15 


A 


RBAND 


COM 


MODE 








00280A 


F13C 


BD 


F37C 


A 




3 S R 


MOVEC 








00281A 


F13F 


39 








RTS 










00282 










* 












00283A 


F140 


BD 


F5FD 


A 


CLEARS 


JSR 


CLEAR 








00284A 


F143 


BD 


F414 


A 




JSR 


WRITEC 








00285A 


F146 


39 








RTS 










00286 










* 












00287 










* 












00288 










* STATUS-STATUS REPORT OF SYSTEM 


00289 










* ADDRESS OF 


STARTING 


LIST 




00290 










* ADDRESS OF 


NEXT ENTRY INTO [ 


1ST TARLR 
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00291 






* ADDRES OF 


NEXT FREE 


LIST POINT 




00292 










* 












00293A 


F147 


8E 


F17A 


A 


STATUS 


LDX 


#MSG18 




"START LIST ADDR= $" 




00294A 


F14A 


BD 


F04B 


A 




JSR 


PDATA1 








00295A 


F14D 


AE 


9F DDIS A 




LDX 


[LISTP] 








00296A 


F151 


BD 


F023 


A 




JSR 


OUT4HS 








00297A 


F154 


8E 


F18D 


A 




LDX 


#MSG19 




"NEXT LIST TABLE ENTRY AT 


$" 


00298A 


F157 


BD 


F04B 


A 




JSR 


PDATA1 








00299A 


F15A 


BE 


DDI 6 






LDX 


NEXTAD 








00300A 


F15D 


BD 


F023 


A 




JSR 


OUT4HS 








00301A 


F160 


8E 


F1A8 


A 




LDX 






"NEXT LIST POINT AT $" 




00302A 


F163 


BD 


F04B 


A 




JSR 


PDATA1 








00303A 


F166 


BE 


DD1F 


A 




r ny 


NEXTPT 








00304A 


F169 


BD 


F023 






JSR 


OUT4HS 








00305A 


F16C 


8E 


F1BD 






LDX 


#MSG25 




"CURRENT NUMBER OF LISTS= 


ii 


00306A 


F16F 


BD 


F04B 


A 




JSR 


PDATA1 








00307A 


F172 


B6 


DD1A 


A 




LDA 


LISCNT 








00308A 


F175 


4C 








INCA 






ACTUALLY ONE MORE 




00309A 


F176 


BD 


F018 


A 




JSR 


OUTHEX 








00310A 


F179 


39 








RTS 










00311 










* 












00312A 


F17A 




53 


A 


MSG 18 


FCC 


/START 


LIST ADDR= $/ 




00313A 


F18C 




04 


A 




FCB 


4 








00314A 


F18D 




4E 


A 


MSG 19 


FCC 


/NEXT LIST TABLE ENTRY AT $/ 




00315A 


F1A7 




04 


A 




FCB 


4 








00316A 


F1A8 




4E 


A 


MSG 20 


FCC 


/NEXT LIST POINT AT $/ 




00317A 


F1BC 




04 


A 




FCB 


4 








00318A 


F1BD 




43 


A 


MSG 2 5 


FCC 


/CURRENT 


NUMBER OF LISTS= $/ 




00319A 


F1D7 




04 


A 




FCB 


4 








00320 










* 












00321 










* 












00322A 


F1D8 


7E 


F051 


A 


EXIT 


JMP 


MONIT 




BACK TO MONITOR 




00323 










* 












00324 










* FASMOV PROVIDES AUXILIARY CURSOR FUNCTIONS. 




00325 










* THE 


SPECIFIED FUNCTION TO BE PERFORMED AND 




00326 










* THE 


INPUT 


ROUTINE 


IS 


CALLED FOR THE NEXT 




00327 










* COMMAND UNTIL A NON- 


FAST MOVE 




00328 










* CHARACTER 


IS ISSUED. 






00329 










* T-MOVE THE 


CURSOR 


TO 


THE TOP OF THE SCREEN 




00330 










* B-MOVE THE 


CURSOR 


TO 


THE BOTTOM OF THE SCREEN 




00331 








* L-MOVE THE 


CURSOR 


TO 


THE LEFT SIDE OF THE SCREEN 


00332 










* R-MOVE THE 


CURSOR 


TO 


THE RIGHT SIDE OF THE SCREEN 


00333 










* H-HOME MOVE THE CURSOR TO 0,0 (CENTER OF SCREEN) 


00334 










* 












00335A 


F1DB 


BD 


F234 


A 


RIGHT 


JSR 


CHKMOD 




CHECK FOR R-BAND MODE 




00336A 


FIDE 


BD 


F400 


A 




JSR 


ERASEC 




GET RID OF CURSOR 




00337A 


F1E1 


86 


7E 


A 




LDA 


#$7E 




FAR RIGHT MAX POS 




00338A 


F1E3 


B7 


DD1D 


A 




STA 


CURPOS 




CURSOR X POSITION 




00339A 


F1E6 


20 


33 F 


21B 




BRA 


FASMV1 




CHECK FOR NEXT COMMAND 




00340A 


F1E8 


BD 


F234 


A 


LEFT 


JSR 


CHKMOD 




SEE IF RUBBER-BAND 




00341A 


F1EB 


BD 


F400 


A 




JSR 


ERASEC 




GET RID OF CURSOR 




00342A 


F1EE 


86 


81 


A 




LDA 


#$81 




FAR LEFT MAX POS 




00343A 


F1F0 


B7 


DD1D 


A 




STA 


CURPOS 




CURSOR X POS 




00344A 


F1F3 


20 


26 F21B 




BRA 


FASMV1 




NEXT 




00345A 


F1F5 


BD 


F234 


A 


UP 


JSR 


CHKMOD 




CHECK MODE 




00346A 


F1F8 


BD 


F400 


A 




JSR 


ERASEC 




REMOVE CURSOR 




00347A 


F1FB 


86 


5F 


A 




LDA 


#$5F 




TOP POSITION 




00348A 


F1FD 


B7 


DDI E 


A 




STA 


CURPOS+1 


CURSOR Y POS 
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PAGE 007 GRAFPAKA.SA 


: 1 


GRAFPA 












00349A 


F200 


20 


19 


F21B 






BRA 


FASMV1 


NEXT 






00350A 


F202 


BD 


F234 




A 


DWN 




JSR 


CHKMOD 


CHECK MODE 






00351A 


F205 


BD 


F400 




A 






JSR 


ERASEC 


TAKE CURSOR OFF 




00352A 


F208 


86 


A4 




A 






LDA 


#$A4 


BOTTOM OF 


SCREEN 




00353A 


F20A 


B7 


DD1E 




A 






STA 


CURPOS+1 CURSOR Y POS 




00354A 


F20D 


20 


0C 


F21B 






BRA 


FASMV1 


NEXT 






00355A 


F20F 


BD 


F234 




A 


HOME 


JSR 


CHKMOD 








00356A 


F212 


BD 


F400 




A 






JSR 


ERASEC 








00357A 


F215 


CC 


0000 




A 






LDD 


#00 


CENTER CO' 


ORDINATES 




00358A 


F218 


FD 


DD1D 




A 






STD 


CURPOS 


PUT IN CURSOR 




00359A 


F21B 


FC 


DD1D 




A 


FASMV1 


LDD 


CURPOS 


GET FINAL 


POSITION 




00360A 


F21E 


BD 


F61D 




A 






JSR 


PNTADD 


GET ADDRESS 




036 1A 


F221 


BF 


DD21 




A 






STX 


CURAD 


SAVE FOR USE 




00362A 


F224 


43 












COMA 




INVERT PIXEL 




00363A 


F225 


B7 


DD23 




A 






STA 


CURCH 


NEW CURSOR CHAR 




0364A 


F228 


BD 


F4 14 




A 






JSR 


WRITEC 


PUT CURSOF 


BACK 




00365A 


F22B 


7D 


DD15 




A 






TST 


MODE 


CHECK FOR 


R-BAND 




00366A 


F22E 


27 


03 


F233 






BEQ 


FASRET 


NO 






00367A 


F230 


BD 


F2AC 




A 






JSR 


DRAWL 


DRAW THE LINE 




00368A 


F233 


39 








FASRET 


RTS 




BACK TO COMHAND 




00369 












* 














00370 












* 














00371 












* 


CHKMOD-CHECKS TO 


SEE IF IN RUE 


BER 




00372 












* 


BAND MODE AND, IF 


SO, 






00373 












* 


TO ERASE THE CURR 


ENT LINE. 






00374 












* 














00375A 


F234 


7D 


DDI 5 




A 


CHKMOD 


TST 


MODE 


RUBBER BAN 


D ? 




00376A 


F237 


27 


03 


F23C 






BEQ 


CHRET 


NOPE 






00377A 


F239 


BD 


F2B1 




A 






JSR 


ERASEL 


YES, ERASE LINE 




00378A 


F23C 


39 








CHRET 


RTS 










00379 












* 














00380 












* 














00381 












* 


DHAND 


A "D" COMMAND CAUSES CONTROL TO BE 




00382 












* 


PASSED 


HERE FOR 


FURTHER PROCESSING. 




00383 












* 


D <SP> 


DELETE LAST LINE, PUT CURSOR AT 




00384 












* 






LAST POINT 






00385 












* 


DEL 


DELETE SPECIFIED LIST NUMBER 




00386 












* 


DR 


<SP> 


DRAW CURRENT LIST 






00387 












* 


DR 


<LIST#,LIST#, 


. •> DRAW SPECIFIED LISTS 




00388 












* 


DA 




DRAW ALL 


LISTS 






00389 












* 


DW 




DRAW A LINE TO BE SPECIFIED 




00390 












* 














00391A 


F23D 


BD 


F045 




A 


DHAND 


JSR 


INCH 


GET NEXT CHAR 




00392A 


F240 


BD 


F132 




A 






JSR 


ABORT 


CHECK FOR 


"CAN" ABORT 


CHAR 


00393A 


F243 


81 


20 




A 






CMPA 


#$20 


SPACE? 






00394A 


F245 


26 


IF 


F266 






BNE 


DH1 


NOPE 






00395A 


F247 


BD 


F400 




A 






JSR 


ERASEC 


REMOVE CURSOR 




00396A 


F24A 


86 


FF 




A 






LDA 


#$FF 


FLAG=UNWRITE 




00397A 


F24C 


FE 


DD1F 




A 






LDU 


NEXTPT 


GET ADDR OF NEXTPT IN 


LIST 


00398A 


F24F 


33 


5E 




A 






LEAU 


-2,U 


DELETE POINT 




00399A 


F251 


FF 


DD1F 




A 






STU 


NEXTPT 


UPDATE POINTER 




00400A 


F254 


10AE 


5E 




A 






LDY 


-2,U 


GET X1Y1 






00401A 


F257 


AE 


C4 




A 






LDX 


0,U 


GET X2,Y2 






00402A 


F259 


BD 


F645 




A 






JSR 


LING EN 


UNDRAW LINE 




00403A 


F25C 


BD 


F414 




A 






JSR 


WRITEC 


PUT CURSOR BACK 




00404A 


F25F 


8E 


F28D 




A 






LDX 


#MSG30 


"LINE DELETED" 




00405A 


F262 


BD 


F04E 




A 






JSR 


PDATA 








00406A 


F265 


39 












RTS 




MORR COMMANDS 
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3RAFPAKA.S 




h:l C 


jRAFPA 









00407A 


F266 


81 


45 


A 


DH1 


CMPA 


# ' E 


AN " E " ? 


00408A 


F268 


26 


0A 


F274 




BNE 


DH2 




00409A 


F26A 


BD 


F045 


A 




JSR 


INCH 


GET NEXT CHAR 


00410A 


F26D 


81 


4C 


A 




CMPA 


#'L 




00411A 


F26F 


26 


IB 


F28C 




BNE 


DHRET 




00412A 


F271 


BD 


F43E 


A 




JSR 


DELIST 


DELETE A LIST 


00413A 


F274 


81 


52 


A 


DH2 


CMPA 


#'R 




04 14A 


F276 


26 


04 


F27C 




BNE 


DH3 




04 15A 


F278 


BD 


F4F3 


A 




JSR 


GETLIS 


GET NUMBER AND DRAW 


00416A 


F27B 


39 








RTS 






00417A 


F27C 


81 


41 


A 


DH3 


CMPA 


#'A 


DRAW ALL LISTS 


00418A 


F27E 


26 


04 


F284 




BNE 


DH4 




00419A 


F280 


BD 


F29D 


A 




JSR 


DRALL 




00420A 


F283 


39 








RTS 






00421A 


F284 


81 


57 


A 


DH4 


CMPA 


#'W 


DRAW A LINE 


00422A 


F286 


26 


04 


F28C 




BNE 


DHRET 




00423A 


F288 


BD 


F733 


A 




JSR 


DRAW 


LINE DRAWING ROUTINE 


00424A 


F28B 


39 








RTS 






00425A 


F28C 


39 






DHRET 


RTS 






00426 










* 








00427A 


F28D 




20 


A 


MSG30 


FCC 


/ LINE 


DELETED/ 


00428A 


F29C 




04 


A 




FCB 


4 




00429 










* 








00430 










* DRALL-DRAW ALL LISTS. ALL THE LISTS ARE DRAWN 


00431 










* ON 


THE SCREEN. 




00432 










* 








00433A 


F29D 


F6 


DDI A 


A 


DRALL 


LDB 


LISCNT 


GET LIST COUNT 


0434A 


F2A0 


5C 








INCB 




REAL LIST NUM 


00435A 


F2A1 


34 


04 


A 


DRA1 


PSHS 


B 


SAVE COUNTER 


00436A 


F2A3 


BD 


F519 


A 




JSR 


GETL3 


DRAW LIST IN B 


00437A 


F2A6 


35 


04 


A 




PULS 


B 


GET COUNTER 


00438A 


F2A8 


5A 








DECB 




DECREMENT COUNTER 


00439A 


F2A9 


26 


F6 


F2A1 




BNE 


DRA1 


FINISHED 


00440A 


F2AB 


39 








RTS 






00441 








* 








00442 










* DRAWL DRAW A LINE 


BETWEEN THE CURSOR AND THE LAST 


00443 








* POINT IN 


THE CURRENT LIST. 


00444 










* 








00445 










* 








00446A 


F2AC 


4F 






DRAWL 


CLRA 




FLAG=WRITE 


00447A 


F2AD 


34 


02 


A 




PSHS 


A 


SAVE FLAG 


00448A 


F2AF 


20 


04 


F2B5 




BRA 


DRAWL 2 




00449A 


F2B1 


86 


FF 


A 


ERASEL 


LDA 


#$FF 


FLAG=UNWRITE 


00450A 


F2B3 


34 


02 


A 




PSHS 


A 


SAVE FLAG 


00451A 


F2B5 


BD 


F400 


A 


DRAWL2 


JSR 


ERASEC 


GET RID OF CURSOR 


00452A 


F2B8 


FC 


DD1D 


A 




LDD 


CURPOS 


GET CURSOR POSITION 


00453A 


F2BB 


BE 


DD1F 


A 




LDX 


NEXTPT 




00454A 


F2BE 


10AE 


IE 


A 




LDY 


-2,X 


GET LAST POINT 


00455A 


F2C1 


108C 


0071 


A 




CMPY 


#$71 




00456A 


F2C5 


27 


0F 


F2D6 




BEQ 


DRET 




00457A 


F2C7 


108C 


006F 


A 




CMPY 


#$6F 


CHECK FOR MOVE PEN 


00458A 


F2CB 


26 


02 


F2CF 




BNE 


DRAW3 


NOPE 


00459A 


F2CD 


IF 


02 


A 




TFR 


D , Y 


YEP, DRAW DOT 


00460A 


F2CF 


IF 


01 


A 


DRAW3 


TFR 


D,X 


2ND POINT 


00461A 


F2D1 


35 


02 


A 




PULS 


A 


GET FLAG BACK 


00462A 


F2D3 


BD 


F645 


A 




JSR 


LINGEN 


DRAW LINE 






BD 


F414 


a 


DRET 


JSR 


WRIT EC 




00464A 


F2D9 


39 








RTS 




BACK 
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f A(j Ei K 


09 GRAFPAKA.SA: 1 GRAFPA 










01 01 A £ R 
10 10 fi O D 










* 










01 (71 A £ £ 
10 10 *± D O 










* 










(71 01 A £ 7 










* PROMPT WRITES THE 


PROMPT CHAR (%) AND CRLF 


0468 










* ANE 


RETUR 


^JS. 






00469 










* 










0470 A 


F2DA 


BD 


F003 


A PROMPT JSR 


CRLF 






0047 1 A 


F2DD 


86 


25 


A 




LDA 


#'% 






0! 047 9 A 

!0 KJ *d / ^ft 


F2DF 


BD 


F048 


A 




JSR 


OUTCH 






01 0147 "5 A 
10 10 f± / J A 


F2E2 


39 








RTS 








PI 047 4 










* 










CI 04 7 S 










* RESET WILL 


REST ALL THE POINTERS AND START FRESH 


01 01 A 7 
10 10 4 / D 










* 










0477 A 

V V *i / /ft 


F2E3 


BD 


F045 


A 


RESET 


JSR 


INCH 


GET NEXT 


CHAR IN COMM 


01 01 A 7 ft A 
10 10 4 /Oft 


F2E6 


81 


45 


A 




CMPA 


#'E 






01 01 A 7 Q A 

10 M 4 / y a 


F2E8 


26 


0E 


F2F8 




BNE 


RRET 






01 01 A ft 01 A 
10 10 *i O 10 ft 


F2EA 


BD 


F045 


A 




JSR 


INCH 






01 01 A ft 1 A 
10 10 *i O J. A 


F2ED 


81 


53 


A 




CMPA 


#'S 






fc)W4o ZA 


F2EF 


26 


07 


F2F8 




BNE 


RRET 






10 I04O JA 


F2F1 


10FE 


DD13 


A 




LDS 


STACK 


GET USER 


STACK 


01 01 A ft A A 


F2F5 


7E 


F053 


A 




JMP 


GRAPH 


BACK TO 


RESTART 


10 10 4 OjA 


F2F8 


39 






RRET 


RTS 








4 ft 










* 










0487 










* 










04 Aft 










* 










00489 










* LINER PUT 


CURSOR 


LOCATION AS NEXT 


4 Q 
%) x) H y icf 










* POINT IN CURRENT LIST AND DRAW 


4 Q 1 

10 10 4 7 J. 










* A LINE TO 


IT FROM 


THE PREVIO 


JS POINT. 


04Q 

B w 1 7 A 










* 










04 Q ^ 










* 










0\ Ch A Q A 










* FIXP PUT 


MOVE PEN 


CODE IN NEXT POINT AND THEN PUT 


04 Q R 

10 10 *i 3 O 










* 


CURRENT CURSOR POSITION IN POINT LIST AND 


(A 01 A Q £ 

\o lo *i y d 










* 


PLOT 


A POINT 


AT CURPOS 


; WRITE THE CURSOR 


01 01 vl Q 7 










* AND 


RETURN TO COMMAND HANDLER. 


04 Qft 
io io 4 y o 










* 










04 QQ A 

lo lo 4 y y a 


F2F9 


7D 


DD15 




FIXP 


TST 


MODE 


CHECK FOR R-BAND 


05 0A 


F2FC 


27 


03 


F301 




BEQ 


FIX 






(71 01 R 01 1 A 
10 100 10 1 A 


F2FE 


BD 


F2B1 


A 




JSR 


ERASEL 






a a c 01 o a 
10 WO W zA 


F301 


8E 


F32F 


A 


FIX 


LDX 


#MSG26 


"POINT FIXED AT $" 


10 B 10 JA 


F304 


BD 


F04E 


A 




JSR 


PDATA 






R 4 A 
10 10 D v H ft 


F307 


BD 


F357 


A 




JSR 


PCURSE 


PRINT PO 


INT POS 


050SA 

i/ u j v J n 


F30A 


FE 


DD1F 


A 




LDU 


NEXTPT 






R A 

K/ %> D t) O ft 


F30D 


8E 


006F 


A 


FIX1 


LDX 


#$6F 


MOVE PEN 


COMMAND 


00S07 A 

V V J K/ /ft 


F310 


AF 


CI 


A 




STX 


, U++ 


PUT IN LIST, INC POINTER 


R ft A 

10 10 3 10 O ft 


F312 


FF 


DD1F 


A 




STU 


NEXTPT 


UPDATE POINTER 


01 01 C 01 Q A 

W 10 D 10 y A 


F315 


20 


09 


F320 




BRA 


LINER2 






01 01 R 1 0! A 
10 10 ± 10 A 


F317 


8E 


F343 


A 


LINER 


LDX 


#MSG27 


"LINE ENTERED AT" 


R 1 1 A 

XJ x) D J. X ft 


F31A 


BD 


F04E 


A 




JSR 


PDATA 






10 10 D 1 Z A 


F31D 


BD 


F357 


A 




JSR 


PCURSE 






0^1 ^ A 

tJ XJ J -L J ft 


F320 


BD 


F2AC 


A 


LINER2 


JSR 


DRAWL 


DRAW LIN 


E OR PUT DOT 


01 01 R 1 A A 
10 10 O J. 4 A 


F323 


FE 


DD1F 


A 




LDU 


NEXTPT 


GET POINTER 


10 W ± D A 


F326 


BE 


DD1D 


A 




LDX 


CURPOS 








F329 


AF 


CI 


A 




STX 


0,U + + 


PUT IN POINT, INC POINTER 


^ 1 7 A 

V YJ J J. /ft 


F32B 


FF 


DD1F 


A 




STU 


NEXTPT 


UPDATE P 


DINTER 


00518A 


F32E 


39 






FIXRET 


RTS 








00519 










* 










00520A 


F32F 




20 


A 


MSG 2 6 


FCC 


/ POINT FIXED AT / 


00521A 


F342 




04 


A 




FCB 


4 






00522A 


F343 




20 


A 


MSG27 


FCC 


/ LINE ENTERED 


/ 
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PAGE 010 GRAFPAKA.SA 


1 GRAFPA 








00523A 


F356 




04 


A 




FCB 


4 




00524 










* 








00525 










* PCURSE-PRINTS THE CURRENT X,Y POSITION OF THE 


00526 










* CURSOR 






00527 


















00528A 


F357 


8E 


F370 


A 


PCURSE 


LDX 


#MSG31 " X=$" 


00529A 


F35A 


BD 


F04E 


A 




JSR 


PDATA 




00530A 


F35D 


B6 


DD1D 


A 




LDA 


CURPOS 


GET X POSITION 


00531A 


F360 


BD 


F018 


A 




JSR 


OUTHEX 


PRINT IT 


00532A 


F363 


8E 


F376 


A 




LDX 


#MSG32 


" ,Y=$" 


00533A 


F366 


BD 


F04E 


A 




JSR 


PDATA 




00534A 


F369 


B6 


DD1E 


A 




LDA 


CURPOS+1 


Y POSITION 


00535A 


F36C 


BD 


F018 


A 




JSR 


OUTHEX 




00536A 


F36F 


39 








RTS 






00537 










* 








00538A 


F370 




20 


A 


MSG 31 


FCC 


/ x=$/ 




00539A 


F375 




04 


A 




FCB 


4 




00540A 


F376 




20 


A 


MSG32 


FCC 


/ ,Y=$/ 




00541A 


F37B 




04 


A 




FCB 


4 




00542 










* 








00543 










* MOVEC UPDATES THE POSITION OF THE 


00544 










* CURSOR ACCORDING TO 


THE KEYBOARD 


00545 










* INPUT FROM THE USER. 




00546 










* 








00547 










* ON 


ENTRY 


A=CONTROL 


CHARACTER 


00548 










* 








00549 










* CNTRL-H 


MOVE CURSOR 


LEFT 1 PIXEL SPACE 


00550 










* CNTRL-L 


MOVE CURSOR 


RIGHT 1 PIXEL SPACE 


00551 










* CNTRL-K 


MOVE CURSOR 


UP ONE SCAN LINE 


00552 










* CNTRL-J 


MOVE CURSOR 


DOWN ONE SCAN LINE 


00553 










* 








00554 










* CHECK IS 


MADE TO MAKE SURE THAT THE 


00555 








* CUR 


OSR SI 


'AYS ON THE 


SCREEN. 


00556 










* 








00557A 


F37C 


34 


02 


A 


MOVEC 


PSHS 


A 


SAVE CON CAHR 


00558A 


F37E 


BD 


F234 


A 




JSR 


CHKMOD 


CHECK MODE 


00559A 


F381 


BD 


F400 


A 




JSR 


ERASEC 


REMOVE CURSOR 


00560A 


F384 


BE 


DD21 


A 


MOV2 


LDX 


CURAD 


GET CURSOR ADDR 


00561A 


F387 


35 


02 


A 




PULS 


A 


GET CHAR BACK 


00562A 


F389 


F6 


DD1D 


A 




LDB 


CURPOS 


GET X POS IN B 


00563A 


F38C 


81 


08 


A 




CMPA 


#8 


(CNTRL-H) MOVE LEFT? 


00564A 


F38E 


26 


ID F3AD 




BNE 


MOVE1 




00565A 


F390 


5A 








DECB 




YES, DEC X POS ONE 


00566A 


F391 


CI 


80 


A 




CMPB 


#$80 


LEFT BORDER? 


00567A 


F393 


27 


5C F3F1 




BEQ 


CURET2 


YES, TOO MUCH LEAVE IT 


00568A 


F395 


B6 


DD23 


A 




LDA 


CURCH 


GET CURSOR CHAR 


00569A 


F398 


1A 


01 


A 




ORCC 


#1 


SET CARRY 


00570A 


F39A 


49 








ROLA 




CHECK TO SEE IF 


00571A 


F39B 


25 


01 


F39E 




BCS 


MOK1 


CURSOR CROSSED A BYTE 


00572A 


F39D 


49 








ROLA 




BOUNDARY 


00573A 


F39E 


B7 


DD23 


A 


MOK1 


STA 


CURCH 




00574A 


F3A1 


IF 


98 


A 




TFR 


B, A 


GET XPOS IN A 


00575A 


F3A3 


84 


07 


A 




ANDA 


#7 


MASK TOP 5 BITS 


00576A 


F3A5 


88 


07 


A 




EORA 


#7 


SEE IF 3 LSBITS ZERO 


00577A 


F3A7 


26 


45 


F3EE 




BNE 


CURET1 


IF SO CROSSED BYTE BOUNDARY 


00578A 


F3A9 


30 


IF 


A 




LEAX 


-1,X 


DEC CURSOR ADDR 


00579A 


F3AB 


20 


41 


F3EE 




BRA 


CURET1 


OK, UPDATE POSITION 


00580A 


F3AD 


81 


0C 


A 


MOVE1 


CMPA 


#$0C 


(CNTRL-L) MOVE RIGHT? 
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PAGE 011 GRAFPAKA.SA 


:1 GRAFPA 










00581A 


F3AF 


26 


IB 


F3CC 






1*1 U V £ Z 






00582A 


F3B1 


5C 








1 IN D 




INC X P0£ 


i ONE 


00583A 


F3B2 


CI 


7F 


A 




CMPB 


ffs> fr 


RIGHT BORDER? 


00584A 


F3B4 


27 


3B 


F3F1 






PIIDFT 9 


TOO MUCH 




00585A 


F3B6 


B6 


DD23 


A 




r HA 


("MIRTH 
v.. u tw- n 






00586A 


F3B9 


1A 


01 


A 




PDPP 








00587A 


F3BB 


46 








RPiRA 








(i ti c r> o n 

00588A 


F3BC 


25 


01 


F3BF 




rpc; 








00589A 


F3BE 


46 








Dfip A 
KUKn 








00590A 


F3BF 


B7 


DD23 


A 


M0K2 


Din 


PIIRPH 
u r\ v. n 






00591A 


F3C2 


IF 


98 


A 




1 r K 


R A 
D f A 






00592A 


F3C4 


84 


07 


A 




ANJJ A 


# "7 
ff / 






00593A 


F3C6 


26 


26 


F3EE 




BNE 


PIIRFT1 
\_- u r\ i_i j. x 






00594A 


F3C8 


30 


01 


A 




[ PAV 
Lid AA 


1 Y 


INC CURAD 


00595A 


F3CA 


20 


22 


F3EE 




DO a 
DK A 


PMD PTl 


UPDATE 




00596A 


F3CC 


F6 


DD1E 


A 


MOVE 2 


r nR 

L.IJD 


PUB DdQ-L 1 


GET Y POS IN B 


00597A 


F3CF 


81 


0B 


A 




PUDA 


Jt ^ 0!R 
ff ■? WD 


(CNTRL-K) 


MOVE UP? 


00598A 


F3D1 


26 


0A 


F3DD 




bNh 


MUVij j 






00599A 


F3D3 


5C 








TMPD 

1 B 




IN Y POS 


ONE 


00600A 


F3D4 


CI 


5F 


A 




Lrlr D 
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CI 01 7 1 


A 
A 




LDD 


#$71 


END LIST 


CODE 


WUoj DA 


r DAt 


i n d c 


DD1F 


A 




LDY 


NEXTPT 


GET POINTER 


13 !0O D D A 


PCD ~i 

r dd.3 


t.U 


Al 


A 




STD 


0,Y++ 


END PRESENT LIST 


fTI d Q C "T J\ 

W Wo D / A 


cirnr 
r ODD 


/t- 


DD1A 


A 




INC 


LISCNT 


UP COUNT 




CI (71 Q R o a 

W wo jo A 




1 fll Q P 


DDI r 


A 


NEXTL1 


STY 


NEXTPT 






00859A 


F5BC 


BE 


DD16 


A 




LDX 


NEXTAD 


GET NEXT 


FREE SPACE IN TABLE 


00860A 


F5BF 


10AF 


81 


A 




STY 


, X++ 


PUT ADDR 


IN TABLE 


00861A 


F5C2 


BF 


DD16 


A 




STX 


NEXTAD 


UPDATE PC 


INTER 


00862A 


F5C5 


39 








RTS 








00863 










* 










00864 










* 










00865A 


F5C6 




20 


A 


MSG 29 


FCC 


/ END 


OF LIST #/ 




00866A 


F5D5 




04 


A 




FCB 


4 






00867 










* 










00868 










* MESSAGES 


FOLLOW 
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pans 1 t 




'Dunn 

iKAt Pi 


\KA . Si 




3 RAF 




? A 








00869 










* 










00870A 


F5D6 




49 


A 


MSG 5 


FCC 


/INPUT TWO POINTS/ 




00871A 


F5E6 




0D 


A 






FCB 


$0D,$0A 




00872A 


F5E8 




58 


A 


MSG 


6 


FCC 
FCB 


/XI, Yl / 




00873A 


F5EE 




04 


A 






4 




00874A 


F5EF 




58 


A 


MSG 7 


FCC 


/X2,Y2 / 




00875A 


F5F5 




04 


A 






FCB 


4 




00876A 


F5F6 




4D 


A 


MSG 9 


FCC 


/MODE= / 




00877A 


F5FC 




04 


A 






FCB 


4 




00878 




















00879 










* 


CLEAR-FILL 


SCREEN WITH CLEAR CHARACTER 


CLERCH 


00880 










* 


FOR 


BLACK 


LINES ON BUFF BACKGROUND USE 


INVERTED 


00881 










* LOGIC. A BIT SET IS BUFF A BIT CLEARED 


IS BLACK 


00882 










* 


SO 


CLERCH 


IS $FF. 




00883 










* 










00884A 


F5FD 


D6 


FF 


A 


CLEAR 


LDB 


CLERCH GET CLEAR CHARACTER 




fX Ck o o c » 

088 5A 


F5FF 


8E 


9000 


A 






LDX 


#SCRN BEGINNING OF SCREEN 


RAM 


00886A 


F60 2 


108E 


A80 


A 






LDY 


#SCRN+RAMLEN END OF RAM 




00887A 


F606 


8D 


01 


F609 






BSR 


FILL1 FILL SCREEN 




00888A 


F608 


39 










RTS 


BACK TO COM HANDLER 




00889 










* 










00890 










* 


FILL1-C0PY 


CHARACTER IN B FROM LOCATION 


IN X 


00891 










* TO 


LOCATION IN Y 




00892 










* 


INIT: X=FROM 




00893 










* 




Y=UP TO 




00894 










* 




B=CHAR 




00895 










* VOLATILE: 


X 




00896A 


F609 


34 


20 


A 


FILL1 


PSHS 


Y SAVE TO LOCATION 




00897A 


F60B 


AC 


E4 


A 


FILL2 


CMPX 


,S COMPARE TO END 




00898A 


F60D 


24 


04 


F613 






BHS 


FILL3 NOT FINISHED 




00899A 


F60F 


E7 


80 


A 






STB 


,X+ STORE CHAR 




00900A 


F611 


20 


F8 


F60B 






BRA 


FILL2 BACK FOR MORE 




00901A 


F613 


35 


A0 


A 


FILL3 


PULS 


PC,Y RETURN 




00902 










* 










00903 










* 










00904 










* 


SUBROUTINE 


PNTADD 




00905 










* GET 


ADDRESS IN SCREEN MEMORY 




00906 










* 


OF 


ANY POINT IN THE X-Y 




00907 










* 


SCREEN SPACE 




00908 










* 


INIT: A=XPT 




00909 










* 




B=YPT 




00910 










* 


ON 


EXIT: 


IX=ADDRESS A=MASK 




00911 










* 


VOLATILITY 


: A,B,X,Y 




00912 










* 










00913A 


F615 




80 


A 


BITAB 


FCB 


%10000000 




00914A 


F616 




40 


A 






FCB 


%01000000 




00915A 


F617 




20 


A 






FCB 


%00100000 




00916A 


F618 




10 


A 






FCB 


%00010000 




00917A 


F619 




08 


A 






FCB 


%00001000 




00918A 


F61A 




04 


A 






FCB 


%00000100 




00919A 


F61B 




02 


A 






FCB 


%00000010 




00920A 


F61C 




01 


A 






FCB 


%00000001 




00921 










* 










00922A 


F61D 


9B 


80 


A 


PNTADD 


ADDA 


XOFF OFFSET 




00923A 


F61F 


34 


02 


A 






PSHS 


A SAVE A 




00924A 


F621 


44 










LSRA 


XPT: =XPT/8 




00925A 


F622 


44 










L3 RA 






00926A 


F623 


44 










LSRA 
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GRAFPA 


00927A 


F624 


34 


02 


A 




PSHS A SAVE 


00928A 


F626 


DB 


60 


A 




ADDB YOFF OFFSET B 


00929A 


F628 


86 


20 


A 




LDA #32 


00930A 


F62A 


3D 








MUL YPT:=32*YPT 


00931A 


F62B 


40 








NEGA 


00932A 


F62C 


50 








NEGB YPT:=-32*YPT 


00933A 


F62D 


82 


00 


A 




SBCA #0 PROP BORROW 


00934A 


F62F 


EB 


E4 


A 




ADDB ,S =XPT/8'-32*YPT 


00935A 


F631 


89 


00 


A 




ADCA #0 PROP CARRY 


00936A 


F633 


C3 


A7E0 


A 




ADDD #$17E0+SCRN =XPT/8*-32*YPT+$ 17E0 


00937A 


F636 


IF 


01 


A 




TFR D,X ADDRESS IS NOW IN IX 


00938 










* 


NOW GET BIT MASK AND LEAVE IN ACCA 


00939A 


F638 


A6 


61 


A 




LDA 1,S GET XPT 


00940A F63A 


84 


07 


A 




ANDA #%00000111 SAVE 3 LSBITS 


ei dip & l a 

O H J 4 In 


r o o \* 


IF 


89 


A 




TFR A,B SAVE SHIFT CNT 


094 7 A 


F6 3E 


31 


8C D4 






LEAY BITAB , PCR GET TABLE ADDR 


00194 ^A 
t/ v y *i j rt 


run 


A6 


A6 


A 




LDA A,Y GET PIXEL MASK 


a 019 4 4 A 


Pfi4 
r j 


35 


A0 


A 




PULS PC,Y RTS, CLEAN STACK 


00945 










* 


00946 










* 


SUBROUTINE LINGEN. 


00947 










* 


GIVEN TWO POINTS (XI, Yl) AND (X2,Y2) THIS ROUTINE 


0948 










* 


CALCULATES AND PLOTS A SERIES OF PIXELS 


00949 










* 


REPRESENTING A LINE BETWEEN THE TWO POINTS. 


00950 










* 


THE FORMAT IS FOR A DISPLAY 32 BYTES BY 8 BITS 


00951 










* 


HORIZONTAL AND 192 LINES VERTICAL 


00952 










* 


A MODIFIED BRESENHAM'S ALGORITHM 


0953 










* 


IS USED IN WHICH AN ERROR TERM 


151 01Q 










* 


IS CALCULATED FOR THE EXACT LOCATION OF THE 












* 


LINE AND THE ACTUAL POINT PLOTTED AND EITHER 


09 5b 










* 


X OR Y ARE INCREMENTED (OR DECREMENTED) DEPENDING 


d / 










* 


ON THE SIGN OF THIS TERM. 


iw lo y d o 










* 




00959 










* 


XI AND X2 MUST BE -128<X<127 


00960 










* 


Yl AND Y2 MUST BE -96<Y<95 


00961 










* 


00962 










* 


IF FLAG=0, LINE WILL BE DRAWN 


00963 










* 


IF FLAG=$FF , LINE WILL BE ERASED 


00964 










* 




00965 










* 


REGISTERS MODIFIED: A,B,X,Y 


00966 














00967 










* 


FIRST THE ADDRESS AND POINT LOCATION 


00968 










* 


WITHIN THE BYTE OF THE FIRST X,Y 


00969 










* 


PAIR IS CALCULATED. THE ADDRESS 


00970 










* 


OF THE CURRENT BYTE TO BE PLOTTED 


00971 










* 


IS ALWAYS IN THE X REGISTER 


00972 










* 


THE CURRENT PIXEL LOCATION IS IN 


00973 










* 


"MASK". TO PLOT A POINT, 


00974 










* 


THIS WORD IS "ORED" OR "ANDED" WITH 


00975 










* 


THE INFORMATION ALREADY ON THE SCREEN 


00976 










* 


DEPENDING ON THE WRITE-UNWRITE FLAG. 


00977 














00978 










* 


CALCULATE ADDRESS AND MASK 


00979 










* 


OF BEGIN AND END POINTS 


00980 










* 


FOR LATER COMPARISON 


00981 










* 




00982 










* 


IN IT: X=X2:Y2 Y=X1:Y1 A=FLAG 


00983 










* 




00984A 


F645 


BF 


DD05 


A 


LINGEN STX X2 
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00985A 


F648 


10BF 


DD03 


A 




STY 


XI 


SAVE XI, Yl 


00986A 


F64C 


B7 


DD00 


A 




STA 


FLAG 


SAVE WRITE-UNWRITE FLAG 


00987A 


F64F 


FC 


DD05 


A 




LDD 


X2 


SETUP FOR PNTADD 


00988A 


F652 


BD 


F61D 


A 




JSR 


PNTADD 


GET END ADDR 


00989A 


F655 


BF 


DD11 


A 




STX 


ENDADD 


SAVE 


00990A 


F658 


B7 


DD0A 


A 




STA 


EMASK 




00991A 


F65B 


FC 


DD03 


A 




LDD 


XI 




00992A 


F65E 


BD 


F61D 


A 




JSR 


PNTADD 


GET ADDR AND MASK 


00993A 


F661 


B7 


DD09 


A 




STA 


MASK 


SAVE MASK 


00994 










* 








00995 










* 


THE X REGISTER NOW 


HAS THE ADDRESS IN DISPLAY 


00996 










* 


MEMORY OF 


THE BYTE 


IN WHICH THE FIRST X,Y 


00997 










* 


POINT LIES. "MASK" NOW HAS AN 8-BIT BYTE 


00998 










* 


WITH ONLY 


ONE BIT 


SET IN THE LOCATION OF THAT 


00999 










* 


POINT. 






01000 










* 








01001 










* 


NOW SET UP TO GENERATE POINT SEQUENCE. START 


01002 










* 


WITH POSITIVE INCREMENTS. 


1003 










* 








01004A 


F664 


86 


E0 


A 




LDA 


#-32 


LINE INCREMENT FOR VDG RAM 


01005A 


F666 


B7 


DD08 


A 




STA 


YINC 


IS 32 IN Y DIRECTION 


01006A 


F669 


86 


01 


A 




LDA 


#1 


BIT INCREMENT IN X DIRECTION 


01007A 


F66B 


B7 


DD07 


A 




STA 


XINC 


IS 1 


1008A 


F66E 


F6 


DD03 


A 




LDB 


XI 


GET XI 


01009A 


F671 


ID 








SEX 




SIGN EXTEND TO DO DOUBLE 


01010A 


F672 


FD 


DD01 


A 




STD 


TEMP 


BYTE ARITHMETIC, SAVE 


01011A 


F675 


F6 


DD05 


A 




LDB 


X2 


GET X2 AND SIGN EXTEND 


01012A 


F678 


ID 








SEX 




TO CALCULATE DOUBLE 


01013A 


F679 


B3 


DD01 


A 




SUBD 


TEMP 


SUB FOR DELTAX 


01014A 


F67C 


FD 


DD0B 


A 




STD 


DELTAX 


SAVE DELTAX 


01015A 


F67F 


F6 


DD04 


A 




LDB 


Yl 


GET Yl AND DO 


01016A 


F682 


ID 








SEX 




THE SAME THING 


01017A 


F683 


FD 


DD01 


A 




STD 


TEMP 




01018A 


F686 


F6 


DD06 


A 




LDB 


Y2 




01019A 


F689 


ID 








SEX 




CALCULATE DOUBLE PRECISION 


01020A 


F68A 


B3 


DD01 


A 




SUBD 


TEMP 


DELTAY 


01021A 


F68D 


FD 


DD0D 


A 




STD 


DELTAY 


AND SAVE 


01022A 


F690 


7F 


DD0F 


A 




CLR 


E 


SET ERROR TERM TO ZERO 


01023A 


F693 


7F 


DD10 


A 




CLR 


E+l 




01024A 


F696 


7D 


DD0B 


A 




TST 


DELTAX 


CHECK FOR NEGATIVE DELTA 


01025A 


F699 


2A 


0D 


F6A8 




BPL 


NOTNEG 


IF NOT NEGATIVE 


1 ?6A 


F69B 


FC 


DD0B 


A 




LDD 


DELTAX 


GET ABSOLUTE VALUE OF 


01027A 


F69E 


40 








NEGA 




DELTAX 


1028A 


F69F 


50 








NEGB 






01 09QA 

V ± V £. J7rt 


F6A0 




00 


A 




SBCA 


#0 




1 30A 


F6A2 


FD 


DD0B 


A 




STD 


DELTAX 


SAVE 


01031A 


F6A5 


70 


DD07 


A 




NEG 


XINC 


BUT NEGATE INCREMENT 


01032A 


F6A8 


7D 


DD0C 


A 


NOTNEG TST 


DELTAX+1 


CHECK FOR ZERO DELTA 


01033A 


F6AB 


26 


06 


F6B3 




BNE 


NOTZER 




01034A 


F6AD 


73 


DD0F 


A 




COM 


E 


IF SO SET E=-l 


01035A 


F6B0 


73 


DD10 


A 




COM 


E + l 




01036A 


F6B3 


7D 


DD0D 


A 


NOTZER TST 


DELTAY 




01037A 


F6B6 


2A 


0D 


F6C5 




BPL 


POSY 


DELTAY<0? 


01038A 


F6B8 


FC 


DD0D 


A 




LDD 


DELTAY 


DELTAY : =ABS (DELTAY) 


01039A 


F6BB 


40 








NEGA 






01040A 


F6BC 


50 








NEGB 






01041A 


F6BD 


82 


00 


A 




SBCA 


#0 




01042A 


F6BF 


FD 


DD0D 


A 




STD 


DELTAY 
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01043A 


F6C2 


70 


DD08 


A 




NEG 


YINC 


NEGATE Y INCREMENT 


01044A 


F6C5 


B6 


DD09 


A 


POSY 


LDA 


MASK 


GET BYTE WITH PIXEL 


01045A 


F6C8 


20 


09 


F6D3 




BRA 


PLOTER 




01046A 


F6CA 


FC 


DD0F 


A 


XE 


LDD 


E 


E:=E-DELTAY 


01047A 


F6CD 


B3 


DD0D 


A 




SUBD 


DELTAY 




01048A 


F6D0 


FD 


DD0F 


A 




STD 


E 




01049A 


F6D3 


B6 


DD09 


A 


PLOTER 


LDA 


MASK 


GET BIT MASK 


01050A 


F6D6 


7D 


DD00 


A 




TST 


FLAG 


WRITE OR UNWRITE? 


01051A 


F6D9 


2A 


04 


F6DF 




BPL 


WRITE 




01052A 


F6DB 


AA 


84 


A 




ORA 


,X 


GET RID OF DOT 


01053A 


F6DD 


20 


03 


F6E2 




BRA 


PDOT 


REPLACE ON SCREEN 


01054A 


F6DF 


43 






WRITE 


COMA 




INVERT PIXEL 


01055A 


F6E0 


A4 


84 


A 




AN DA 


,x 


COMBINE WITH PREVIOUS PIXELS 


01056A 


F6E2 


A7 


84 


A 


PDOT 


STA 


,x 


REPLACE ON SCREEN 


01057A 


F6E4 


BC 


DD11 


A 




CMPX 


ENDADD 


FINISHED? 


01058A 


F6E7 


27 


41 


F72A 




BEQ 


FIN1 


YES 


01059A 


F6E9 


7D 


DD0F 


A 


NOTFIN 


TST 


E 


IS ERROR NEGATIVE? 


01060A 


F6EC 


2A 


10 


F6FE 




BPL 


UPX 


IF NOT INCREMENT X DIR 


01061A 


F6EE 


FC 


DD0F 


A 




LDD 


E 


IF SO E:=E+DELATAX 


01062A 


F6F1 


F3 


DD0B 


A 




ADDD 


DELTAX 




01063A 


F6F4 


FD 


DD0F 


A 




STD 


E 




01064A 


F6F7 


B6 


DD08 


A 




LDA 


YINC 


GET Y INCREMENT 


01065A 


F6FA 


30 


86 


A 




LEAX 


A,X 


ADD TO POINTER REGISTER 


01066A 


F6FC 


20 


D5 


F6D3 




BRA 


PLOTER 


MORE DOTS TO GO 


01067A 


F6FE 


B6 


DD09 


A 


UPX 


LDA 


MASK 


GET BIT MASK 


01068A 


F701 


7D 


DD07 


A 




TST 


XINC 


LEFT OR RIGHT 


01069A 


F704 


2A 


12 


F718 




BPL 


SHIFTR 


POSITVE, SHIFT RIGHT 


01070A 


F706 


1C 


00 


A 


SHIFTL 


ANDCC 


#0 


C=0 


01071A 


F708 


49 








ROLA 




XINC IS NEG SO SHIFT LEFT 


01072A 


F709 


27 


05 


F710 




BEQ 


DECAD 


FINISHED THIS BYTE? 


01073A 


F70B 


B7 


DD09 


A 




STA 


MASK 


NO, JUMP BACK TO LOOP 


01074A 


F70E 


20 


BA 


F6CA 




BRA 


XE 




01075A 


F710 


49 






DECAD 


ROLA 




GET BIT BACK IN MASK 


01076A 


F711 


B7 


DD09 


A 




STA 


MASK 


SET UP WITH 1 IN LSBIT AGAIN 


01077A 


F714 


30 


IF 


A 




LEAX 


-1,X 


DECREMENT X 


01078A 


F716 


20 


B2 


F6CA 




BRA 


XE 


BACK IN LOOP 


01079A 


F718 


1C 


00 


A 


SHIFTR 


ANDCC 


#0 




01080A 


F71A 


46 








RORA 






01081A 


F71B 


27 


05 


F722 




BEQ 


INCAD 


FINISHED MASK? 


01082A 


F71D 


B7 


DD09 


A 




STA 


MASK 


NO 


01083A 


F720 


20 


A8 


F6CA 




BRA 


XE 




01084A 


F722 


46 






INCAD 


RORA 




YES, INC ADDR POINTER 


01085A 


F723 


B7 


DD09 


A 




STA 


MASK 


SET UP WITH 1 IN MSBIT 


01086A 


F726 


30 


01 


A 




LEAX 


1,X 


UP ADDR PTR 


01087A 


F728 


20 


A0 


F6 C A 




BRA 


XE 


LOOP AGAIN 


01088A 


F72A 


B6 


DD09 


A 


FIN1 


LDA 


MASK 




01089A 


F72D 


Bl 


DD0A 


A 




CMPA 


EMASK 


HIT LAST DOT? 


01090A 


F730 


26 


B7 


F6E9 




BNE 


NOTFIN 


HIT END YET? 


01091A 


F732 


39 








RTS 




YES, EXIT 


01092 










* 








01093 










* DRAW-PRINTS A PROMPTIMG MESSAGE ASKING FOR X-Y 


01094 










* COORDINATES BETWEEN 


WHICH TO DRAW A LINE. 


01095 










* COO 


3DINATE 


S MUST BE 


IN 2'S COMPLEMENT HEX 


01096 










* 








01097 










* 








01098A 


F733 


BD 


F003 


A 


DRAW 


JSR 


CRLF 


SEND CRLF 


01099A 


F736 


8E 


F5D6 


A 




LDX 


#MSG5 


"ENTER TWO POINTS" 


01100A 


F739 


BD 


F04E 


A 




JSR 


PDATA 


"XI, Yl" 
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01101A 


F73C 


BD 


F033 


A 


JSR 


01102A 


F73F 


26 


37 


F778 


BNE 


01103A 


F741 


F7 


DD0 3 


A 


STB 


01104A 


F744 


BD 


F000 


A 


JSR 


01105A 


F747 


BD 


F033 


A 


JSR 


01106A 


F74A 


26 


2C 


F778 


BNE 


01107A 


F74C 


F7 


DD04 


A 


STB 


01108A 


F74F 


8E 


F5EF 


A 


LDX 


01109A 


F752 


BD 


F04B 


A 


JSR 


01110A 


F755 


BD 


F033 


A 


JSR 


01111A 


F758 


26 


IE 


F778 


BNE 


01112A 


F75A 


F7 


DD05 


A 


STB 


01113A 


F7 5D 


BD 


F000 


A 


JSR 


01114A 


F760 


BD 


F033 


A 


JSR 


01115A 


F763 


26 


13 


F778 


BNE 


01116A 


F765 


F7 


DD06 


A 


STB 


01117A 


F768 


BD 


F003 


A 


JSR 


01118A 


F76B 


10BE 


DD03 


A 


LDY 


01119A 


F76F 


BE 


DD05 


A 


LDX 


01120A 


F772 


B6 


DD00 


A 


LDA 


01121A 


F775 


BD 


F645 


A 


JSR 


01122A 


F778 
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